home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 31 / 64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64 / test stereo-sid (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  485b  |  23 lines
  1. 10 s1=54272:rem $d400=startadresse sid1
  2. 20 s2=s1+32:rem $d420=startadresse sid2
  3. 30 pokes1+24,15:pokes2+24,15
  4. 40 forj=0to2
  5. 50 read fl,fh,el,eh
  6. 60 pokes1+(j*7),fl:pokes1+1+(j*7),fh
  7. 70 pokes2+(j*7),el:pokes2+1+(j*7),eh
  8. 80 nextj
  9. 90 for m=0to2
  10. 100 for j=0to1
  11. 110 pokes1+(j*32)+(m*7)+5,3*16+15
  12. 120 pokes1+(j*32)+(m*7)+6,15*16+8
  13. 130 pokes1+(j*32)+(m*7)+4,33
  14. 140 fori=1to200:next
  15. 150 nextj,m
  16. 160 geta$:ifa$<>" "then160
  17. 170 for j=1to0step-1
  18. 180 for m=2to0step-1
  19. 190 pokes1+(j*32)+(m*7)+4,32
  20. 200 fori=1to200:next
  21. 210 nextm,j
  22. 220 data 90,4,123,5,133,6,180,8,247,10,10,13
  23.